﻿Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        ToolStripLabel3.Text = "Bây giờ là: " & Date.Now.Hour.ToString & " giờ " & Date.Now.Minute.ToString & " phút " & ". Ngày " & Date.Now.Day & " tháng " & Date.Now.Month & " năm " & Date.Now.Year
    End Sub

    Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
        Dim f As New frmKhoa
        f.Show()
    End Sub

    Private Sub NgànhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NgànhToolStripMenuItem.Click
        Dim f As New frmNganh
        f.Show()
    End Sub

    Private Sub HệĐàoTạoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HệĐàoTạoToolStripMenuItem.Click
        Dim f As New frmHe
        f.Show()
    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
        Dim f As New frmPhong
        f.Show()
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
        Dim f As New frmMonHoc
        f.Show()
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
        Dim f As New frmGiaoVien
        f.Show()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
        Dim f As New frmLop
        f.Show()
    End Sub

    Private Sub XâyDựngThờiKhóaBiểuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XâyDựngThờiKhóaBiểuToolStripMenuItem.Click
        Dim f As New frmThoiKhoaBieu
        f.Show()
    End Sub

    Private Sub TraCứuThờiKhóaBiểuTheoTênGiáoViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuThờiKhóaBiểuTheoTênGiáoViênToolStripMenuItem.Click
        Dim f As New frmTKBTheoGV
        f.Show()
    End Sub

    Private Sub TraCứuThờiKhóaBiểuTheoLớpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuThờiKhóaBiểuTheoLớpToolStripMenuItem.Click
        Dim f As New frmTKBTheoLop
        f.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If MsgBox("Bạn Chắc Chắn Muốn Thoát Chương Trình ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Thông Báo") = MsgBoxResult.No Then
            e.Cancel = True
            Exit Sub
        End If
        End
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        Dim f As New frmAbout
        f.Show()
    End Sub
End Class
